데이터
대기업 주소를 지도에 로고를 입혀 시각화하기 위해 필요한 데이터는 다음과 같다.
- 공정거래위원회 지정 최신 공시대상기업집단: 공정위 뉴스 2022년 대기업집단 지정결과
자료출처: www.ftc.go.kr
대기업 집단 순위
공정위 2022년 기준 공시대상 대기업집단 지정결과를 확인할 수 있다.
library(tidyverse)
library(readxl)
rank_raw <- read_excel(glue::glue("{here::here()}/data/220428(조간) 2022년도 대기업집단 지정결과_별첨1.xlsx"), sheet = "22년", skip = 4)
rank_tbl <- rank_raw %>%
set_names(c("순위_22", "순위_21", "변동", "기업명", "동일인", "계열사_22", "계열사_21", "자산_22", "자산_21")) %>%
filter(변동 !="제외") %>%
select(기업명, 동일인, 계열사수=계열사_22, 자산총액 = 자산_22) %>%
mutate(계열사수 = parse_number(계열사수),
자산총액 = parse_number(자산총액)/1000) %>%
filter(!is.na(기업명))
rank_tbl
# A tibble: 76 × 4
기업명 동일인 계열사수 자산총액
<chr> <chr> <dbl> <dbl>
1 삼성 이재용 60 484.
2 에스케이 최태원 186 292.
3 현대자동차 정의선 57 258.
4 엘지 구광모 73 168.
5 롯데 신동빈 85 122.
6 포스코 포스코홀딩스(주) 38 96.3
7 한화 김승연 91 80.4
8 지에스 허창수 93 76.8
9 현대중공업 정몽준 36 75.3
10 농협 농업협동조합중앙회 53 67.0
# … with 66 more rows
본사 주소
fnguide 에서 기업주소록에서 엑셀파일로 가-하, A-Z, 0-9 기업본사주소가 담긴 정보를 다운로드 받아 후처리한다.
company_list <- fs::dir_ls(glue::glue("{here::here()}/data/company_xlsx"))
company_raw <- map_df(company_list, read_excel)
company_raw %>% tail
# A tibble: 6 × 6
종목명 시장 홈페이지 본사주소 대표…¹ IR담당
<chr> <chr> <chr> <chr> <chr> <chr>
1 진양화학 코스피 www.chinyang.co.kr 울산시 남구 장생포로 93… 052-27… 052-2…
2 진에어 코스피 www.jinair.com 서울시 강서구 공항대로 … 1600-6… <NA>
3 진원생명과학 코스피 www.genels.com 서울특별시 영등포구 여… 02-345… 02-34…
4 진코스텍 코넥스 www.jincostech.com 경기도 시흥시 군자천로2… 031)43… 031-5…
5 진흥기업 코스피 www.chinhung.co.kr 인천시 연수구 컨벤시아… 032-43… 032-4…
6 질경이 코넥스 www.hudc.co.kr 서울특별시 서초구 반포… 070)89… 02-58…
# … with abbreviated variable name ¹대표전화